00100		SUBROUTINE SUBR
00200	 	COMMON /INS/ INST(27),BG(60)
00300		COMMON P(30),INUM,IPAR,CNT(27),BT,PL(48),IREST,DF
00400		IF(INUM.NE.1)RETURN
00450		J=P(5)
00500		IF(J.EQ.1)P(2)=3*P(2)
00600		IF(J.EQ.2)P(2)=5*P(2)
00650		IF(J.EQ.3)P(4)=1000
00700	C  LONG NOTES ON NON-STAC. ENVS.
00750		P(5)=85+J
00760		PL(5)=2
00800		IF(P(2).LT..2)RETURN
00900	1	IF(P(3).LT.37)GO TO 2
01000		P(3)=P(3)-12
01050	C  LONGER NOTES WILL ALWAYS BE BELOW MID. C
01055		GO TO 1
01060	2	P(6)=4
01070		P(7)=15
01080		P(9)=P(3)
01180		IF(J.EQ.2)P(8)=94
01200		END